home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / minor thriller (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  299b  |  13 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,23
  4. 30 forz=1to3:f1=10:fory=1to6:f2=30
  5. 40 poke54273,f1
  6. 50 forx=1to3:poke54287,f2:rem range
  7. 60 f2=f2/1.2:nextx:f1=f1*1.5:nexty
  8. 70 forw=1to8:rem length of up to down time
  9. 80 poke54273,f1
  10. 90 poke54287,5:forv=1to5:nextv
  11. 100 f1=f1/1.5:nextw:nextz:poke54278,15
  12. 110 list
  13.